home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
demo
/
vtskt10i.zip
/
FTP_CONN.FRM
< prev
next >
Wrap
Text File
|
1994-02-01
|
6KB
|
224 lines
VERSION 2.00
Begin Form connect_form
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "New Connection"
ClientHeight = 2415
ClientLeft = 1605
ClientTop = 2505
ClientWidth = 5715
ClipControls = 0 'False
Height = 2820
Left = 1545
LinkTopic = "MDIForm1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2415
ScaleWidth = 5715
Top = 2160
Visible = 0 'False
Width = 5835
Begin CommandButton anonymous
Caption = "Anonymous"
Height = 375
Left = 1080
TabIndex = 10
Top = 1980
Width = 1095
End
Begin CommandButton connect
Caption = "Connect"
Height = 375
Left = 2280
TabIndex = 4
Top = 1980
Width = 1095
End
Begin CommandButton cancel
Caption = "Cancel"
Height = 375
Left = 3480
TabIndex = 5
Top = 1980
Width = 1095
End
Begin SSPanel Panel3D1
Align = 1 'Align Top
Alignment = 6 'Center - TOP
BackColor = &H00C0C0C0&
BorderWidth = 1
Font3D = 0 'None
Height = 1875
Left = 0
TabIndex = 0
Top = 0
Width = 5715
Begin SSPanel Panel3D5
Alignment = 1 'Left Justify - MIDDLE
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
BorderWidth = 1
Caption = " Account"
Font3D = 0 'None
Height = 435
Left = 60
TabIndex = 9
Top = 1320
Width = 5595
Begin TextBox conn_account
Height = 315
Left = 1020
TabIndex = 3
Top = 60
Width = 4515
End
End
Begin SSPanel Panel3D4
Alignment = 1 'Left Justify - MIDDLE
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
BorderWidth = 1
Caption = " Password"
Font3D = 0 'None
Height = 435
Left = 60
TabIndex = 8
Top = 900
Width = 5595
Begin TextBox conn_password
Height = 315
Left = 1020
PasswordChar = "*"
TabIndex = 2
Top = 60
Width = 4515
End
End
Begin SSPanel Panel3D3
Alignment = 1 'Left Justify - MIDDLE
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
BorderWidth = 1
Caption = " Userid"
Font3D = 0 'None
Height = 435
Left = 60
TabIndex = 7
Top = 480
Width = 5595
Begin TextBox conn_userid
Height = 315
Left = 1020
TabIndex = 1
Top = 60
Width = 4515
End
End
Begin SSPanel Panel3D2
Alignment = 1 'Left Justify - MIDDLE
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
BorderWidth = 1
Caption = " IP Name"
Font3D = 0 'None
Height = 435
Left = 60
TabIndex = 6
Top = 60
Width = 5595
Begin ComboBox conn_ipname
Height = 300
Left = 1020
TabIndex = 11
Top = 60
Width = 4515
End
End
End
End
Sub anonymous_Click ()
conn_userid = "anonymous"
conn_password = ""
conn_account = ""
End Sub
Sub cancel_Click ()
ipname = ""
userid = ""
password = ""
account = ""
Hide
End Sub
Sub conn_account_KeyPress (keyascii As Integer)
If keyascii = 13 Then
connect_click
keyascii = 0
End If
End Sub
Sub conn_ipname_KeyPress (keyascii As Integer)
If keyascii = 13 Then
connect_click
keyascii = 0
End If
End Sub
Sub conn_password_KeyPress (keyascii As Integer)
If keyascii = 13 Then
connect_click
keyascii = 0
End If
End Sub
Sub conn_userid_KeyPress (keyascii As Integer)
If keyascii = 13 Then
connect_click
keyascii = 0
End If
End Sub
Sub connect_click ()
nm$ = LCase$(Trim$(conn_ipname.Text))
If nm$ = "" Then
MsgBox ("Can't connect without an IP name or number")
Exit Sub
End If
For x = 0 To conn_ipname.ListCount - 1
If nm$ = conn_ipname.List(x) Then
conn_ipname.RemoveItem x
Exit For
End If
Next x
conn_ipname.AddItem nm$, 0
If conn_ipname.ListCount > 99 Then
conn_ipname.RemoveItem 100
End If
ipname = nm$
userid = Trim$(conn_userid)
password = Trim$(conn_password)
account = Trim$(conn_account)
Hide
End Sub